﻿Public Class CChoMuonSachDTO

    Private m_iMa As Integer
    Public Property Ma() As Integer
        Get
            Return m_iMa
        End Get
        Set(ByVal value As Integer)
            m_iMa = value
        End Set
    End Property


    Private m_iMaDocGia As Integer
    Public Property MaDocGia() As Integer
        Get
            Return m_iMaDocGia
        End Get
        Set(ByVal value As Integer)
            m_iMaDocGia = value
        End Set
    End Property


    Private m_dateNgayMuon As DateTime
    Public Property NgayMuon() As DateTime
        Get
            Return m_dateNgayMuon
        End Get
        Set(ByVal value As DateTime)
            m_dateNgayMuon = value
        End Set
    End Property


    Private m_iTinhTrang As Integer
    Public Property TinhTrang() As Integer
        Get
            Return m_iTinhTrang
        End Get
        Set(ByVal value As Integer)
            m_iTinhTrang = value
        End Set
    End Property

    Public Sub New()

    End Sub

    Public Sub New(ByVal _reader As IDataReader)
        m_iMa = _reader("Ma")
        m_iMaDocGia = _reader("MaDocGia")
        m_dateNgayMuon = _reader("NgayMuon")
        m_iTinhTrang = _reader("MaTinhTrang")
    End Sub

End Class
